EXTERNAL RECURSIVE PROCEDURE ALPRIN(RANY S);
EXTERNAL SIMPLE PROCEDURE PRCRLF;
EXTERNAL SIMPLE STRING PROCEDURE CVRAD(REAL W);
EXTERNAL SIMPLE STRING PROCEDURE CVDEG(REAL W);
EXTERNAL SIMPLE STRING PROCEDURE CVGX(REAL R);
EXTERNAL INTEGER PSPCIX;

EXTERNAL PROCEDURE PVDO(RPTR(VARIABLE) V; RTHREAD WLD);
EXTERNAL PROCEDURE PVLDO(RCELL C; RTHREAD WLD);

REQUIRE "ALPRIN.REL[AL,HE]" LOAD_MODULE;